Prazdne datum
Otázka od: Robert Plzak
25. 5. 2004 6:29
Ahoj profici,
zacatecnicka otazka 
Jak udelam prazdne datum?
Potreboval bych neco jako StrToDate('') aby tam
nebylo nic nebo se datum rovnalo 0.
Jde to nejak udelat?
Dik za napady
R. Plzak
Odpovedá: Petr Brant
25. 5. 2004 7:09
Vzhledem k tomu, ze typ TDateTime je totez co Double, nic takoveho
neexistuje. Pokud neco takoveho potrebuji, udelam si konstantu
CInvalidDate = -1, se kterou pak pracuji
A pokud se pokusis o prevod StrToDate(''), zarve to na vyjimku. Dalo by se
to obejit tim, ze si zavedes svou funkci:
function MyStrToDate(StrDate: string): TDateTime;
begin
if StrDate = '' then Result:= CInvalidDate else Result:=
StrToDate(StrDate);
end;
RNDr. Petr Brant [brant@dcomm.cz]
http://web.redbox.cz/petr.brant <http://web.redbox.cz/petr.brant>
> Jak udelam prazdne datum?
> Potreboval bych neco jako StrToDate('') aby tam
> nebylo nic nebo se datum rovnalo 0.
> Jde to nejak udelat?
>
Odpovedá: jsdelphi@creatix.cz
25. 5. 2004 10:14
> Jak udelam prazdne datum?
> Potreboval bych neco jako StrToDate('') aby tam
> nebylo nic nebo se datum rovnalo 0.
> Jde to nejak udelat?
>
DateToStr(-700000) vrati '0.0.0000'. To by mohla byt cesta. Napis si
StrToDateDef, ktera ti v pripade prazdneho retezce bude vracet -700000.
Jan Skopovy